home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Graphics / Scale.i < prev    next >
Encoding:
Text File  |  1994-09-18  |  975 b   |  29 lines
  1. { Scale.i }
  2.  
  3. {$I "Include:Exec/Types.i"}
  4. {$I "Include:Graphics/GFX.i"}
  5.  
  6. Type
  7.    BitScaleArgs = Record
  8.     bsa_SrcX, bsa_SrcY,                 { source origin }
  9.     bsa_SrcWidth, bsa_SrcHeight,        { source size }
  10.     bsa_XSrcFactor, bsa_YSrcFactor,     { scale factor denominators }
  11.     bsa_DestX, bsa_DestY,               { destination origin }
  12.     bsa_DestWidth, bsa_DestHeight,      { destination size result }
  13.     bsa_XDestFactor, bsa_YDestFactor : Short;   { scale factor numerators }
  14.     bsa_SrcBitMap,                           { source BitMap }
  15.     bsa_DestBitMap : BitMapPtr;              { destination BitMap }
  16.     bsa_Flags   : Integer;              { reserved.  Must be zero! }
  17.     bsa_XDDA, bsa_YDDA : Short;         { reserved }
  18.     bsa_Reserved1,
  19.     bsa_Reserved2 : Integer;
  20.    END;
  21.    BitScaleArgsPtr = ^BitScaleArgs;
  22.  
  23. PROCEDURE BitMapScale(bsa : bitScaleArgsPtr);
  24.  External;
  25.  
  26. FUNCTION ScalerDiv(factor,numerator,denominator : Short) : Short;
  27.  External;
  28.  
  29.